home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Communication / System-X / SX / SX_Install < prev    next >
Text File  |  1998-06-24  |  4KB  |  146 lines
  1. ; System-X
  2.  
  3. ; -- SET UP STRINGS ---------------------------------------
  4. (set MSG_ASKDEST "Where would you like System-X to be installed?\nA drawer called SX will be created.")
  5. (set MSG_COPY "Please Wait - Copying Files\n")
  6. (set MSG_THANKS "System-X 1.00 now installed!\n\nYou may want to assign BBS: and DAYDREAM: to SX: for compatability with DayDream, AmiExpress and MAXsBBS doors.\n\n")
  7. (set MSG_STARTUP "The Installer will now modify your\nS:User-Startup file.\nThe SX: assign will be added.\n")
  8.  
  9.  
  10. ; -- GET DESTINATION DIR ----------------------------------
  11. (set dest_dir
  12.   (tackon
  13.    (askdir (prompt MSG_ASKDEST ) 
  14.                    (help @askdir-help)
  15.                    (default @default-dest)
  16.    )
  17.    "SX"
  18.   )
  19. )
  20.  
  21.  
  22. ; -- MAKE DIRECTORIES --------------------------------------
  23. (set @default-dest dest_dir)      
  24. (makedir dest_dir (infos))
  25. (makedir (tackon dest_dir "LogFiles"))
  26. (makedir (tackon dest_dir "Batch"))
  27. (makedir (tackon dest_dir "Commands"))
  28. (makedir (tackon dest_dir "Developer"))
  29. (makedir (tackon dest_dir "Doc"))
  30. (makedir (tackon dest_dir "Doors"))
  31. (makedir (tackon dest_dir "Confs"))
  32. (makedir (tackon dest_dir "Node1"))
  33. (makedir (tackon dest_dir "Node2"))
  34. (makedir (tackon dest_dir "Node3"))
  35. (makedir (tackon dest_dir "Prefs"))
  36. (makedir (tackon dest_dir "Screens"))
  37. (makedir (tackon dest_dir "TXT"))
  38. (makedir (tackon dest_dir "Users"))
  39. (makedir (tackon dest_dir "Utils"))
  40. (makedir (tackon dest_dir "Configs"))
  41.  
  42.  
  43. ; -- COPY FILES --------------------------------------------
  44.  
  45. (copyfiles (prompt MSG_COPY)
  46.               (help @copyfiles-help)
  47.               (source "/libs")
  48.               (dest "LIBS:")
  49.             (pattern "#?.library")
  50.               (infos)
  51. )
  52.  
  53.  
  54. (set machine (database "cpu"))
  55.  
  56. (if (OR (= machine "68000") (= machine "68010"))
  57. (
  58.     (copyfiles (prompt MSG_COPY)
  59.                (help @copyfiles-help)
  60.                (source "sx_000")
  61.                (dest dest_dir)
  62.                (newname "sx")
  63.                (infos)
  64.     )
  65.     (copyfiles (prompt MSG_COPY)
  66.                (help @copyfiles-help)
  67.                (source "/devs/kalacon.device")
  68.                (dest "DEVS:")
  69.                (infos)
  70.     )
  71. )
  72. )
  73.  
  74. (if (OR (= machine "68020") (= machine "68030") (= machine "68040") (= machine "68060"))
  75. (
  76.     (copyfiles (prompt MSG_COPY)
  77.                (help @copyfiles-help)
  78.                (source "sx_020")
  79.                (dest dest_dir)
  80.                (newname "sx")
  81.                (infos)
  82.     )
  83.     (copyfiles (prompt MSG_COPY)
  84.                (help @copyfiles-help)
  85.                (source "/devs/kalacon.device.020")
  86.                (newname "kalacon.device")
  87.                (dest "DEVS:")
  88.                (infos)
  89.     )
  90. )
  91. )
  92.  
  93. (copyfiles (prompt MSG_COPY)
  94.               (help @copyfiles-help)
  95.               (source "")
  96.               (dest dest_dir)
  97.               (pattern "~(sx_#?)")
  98.               (infos)
  99. )
  100.  
  101.  
  102. ; -- CHANGE USER-STARTUP --------------------------------------
  103.  
  104. (run    "c:Assign SX: "dest_dir" >NIL:"
  105.     (help "no help")
  106. )
  107.  
  108. (run    "c:Assign Doors: SX:Doors >NIL:"
  109.     (help "no help")
  110. )
  111.  
  112. (run    "c:Path SX:Utils ADD >NIL:"
  113.     (help "no help")
  114. )
  115.  
  116. (if (not (exists "c:move" (noreq)))
  117.  
  118.         (copyfiles (prompt MSG_COPY)
  119.             (help @copyfiles-help)
  120.             (source "/c/move")
  121.             (dest "c:")
  122.         )
  123.  
  124.         (run    "c:protect c:move +s"
  125.             (help "no help")
  126.         )
  127. )
  128.  
  129. (startup   "System-X"   
  130.     (prompt MSG_STARTUP)
  131.     (help @startup-help)
  132.     (command " Assign SX: \"" dest_dir "\"\n")
  133.     (command " Assign DOORS: SX:Doors\n")
  134.     (command " Path SX:Utils ADD\n");
  135. )
  136.  
  137.  
  138. (run    "utils/MakeAC"
  139.     (help "Just choose yes!")
  140.     (prompt    "Now we'll make a SysOp account. You'll be prompted for a few simple pieces of information. If you wish to convert a userbase from another BBS, you may convert DayDream/MAXsBBS userbases after this install has finished, using the converters in SX:Utils/\nMake sure you read the section on userbase converters in SX.GUIDE\n")
  141.     (confirm)
  142. )
  143.  
  144. (exit MSG_THANKS)
  145. (exit)
  146.